home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
VBZ01.ZIP
/
SCRNCAP.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-02-24
|
2KB
|
45 lines
DefInt A-Z
Declare Sub DeleteDC Lib "GDI" (ByVal hDC)
Declare Sub BitBlt Lib "GDI" (ByVal DestDC, ByVal X, ByVal Y, ByVal BWidth, ByVal BHeight, ByVal SourceDC, ByVal X, ByVal Y, ByVal Constant&)
Declare Sub DrawIcon Lib "User" (ByVal hDC, ByVal X, ByVal Y, ByVal hIcon)
Declare Sub GetCursorPos Lib "User" (lpPNT)
Declare Sub CopyRect Lib "User" (lpDest, ByVal lpSrc&)
Declare Sub UnlockResource Lib "Kernel" Alias "GlobalUnlock" (ByVal hRes)
Declare Function CreateDC Lib "GDI" (ByVal Driver$, ByVal Dev&, ByVal O&, ByVal Init&)
Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC, ByVal nIndex)
Declare Function GetCursor Lib "User" ()
Declare Function LockResource& Lib "Kernel" (ByVal hRes)
Global ScrnW, ScrnH
Dim RECT(3)
Const HORZRES = 8
Const VERTRES = 10
Sub GetScrnRes ()
DC = CreateDC("DISPLAY", 0, 0, 0)
ScrnW = GetDeviceCaps(DC, HORZRES)
ScrnH = GetDeviceCaps(DC, VERTRES)
DeleteDC DC
End Sub
Sub ScrnCap (Frm As Control, Cursor)
DC = CreateDC("DISPLAY", 0, 0, 0)
BitBlt Frm.hDC, 0, 0, ScrnW, ScrnH, DC, 0, 0, &HCC0020
DeleteDC DC
If Cursor Then
GetCursorPos RECT(0)
CursorX = RECT(0): CursorY = RECT(1)
hCursor = GetCursor()
lpCursor& = LockResource&(hCursor)
CopyRect RECT(0), lpCursor&
UnlockResource hCursor
CursorX = CursorX - RECT(0)
CursorY = CursorY - RECT(1)
DrawIcon Frm.hDC, CursorX, CursorY, hCursor
End If
End Sub